www.gusucode.com > 搜索动力2010 v4.9 > 搜索动力2010 v4.9\code\skin.asp
<%sysdate=year(dateadd("h",timediff,now()))&"-"&month(dateadd("h",timediff,now()))&"-"&day(dateadd("h",timediff,now()))%> <%if bespeak_check="true" and cstr(bespeak_time)=cstr(sysdate) then%> <link rel="stylesheet" href="<%=sysurl%>skin/<%=bespeak_skin%>/style.css" type="text/css" media="screen"> <%else%> <link rel="stylesheet" href="<%=sysurl%>skin/<%=skin%>/style.css" type="text/css" media="screen"> <%end if%> <%listskin(server.MapPath(sysurl&"skin/")) function listskin(path) dim fso dim objFolder dim objSubFolders dim objSubFolder set fso=server.CreateObject("scripting.filesystemobject") on error resume next set objFolder=fso.GetFolder(path) set objSubFolders=objFolder.Subfolders for each objSubFolder in objSubFolders Response.Write "<link rel=""alternate stylesheet"" disabled type=""text/css"" href="""&sysurl&"skin/"&objSubFolder.name&"/style.css"" title="""&objSubFolder.name&""">" next set objFolder=nothing set objSubFolders=nothing set fso=nothing end function%> <script type="text/javascript" src="<%=sysurl%>js/skin.js" mce_src="<%=sysurl%>js/skin.js"></script>